(define (kR:sys:bundle)
  (objc:call "NSBundle" "bundleWithPath:" (kR:pathTo "utils/SystemHelper.framework")))
(objc:call (kR:sys:bundle) "load")



;the Helper Object, which is part of the Helper bundle and makes some
;OBJC Functions available;
(define *kR:sys:helper* (objc:make "kRSystemHelper" "initWithBridge:" *impromptu-objc-bridge*))

;returns the contents of a folder as list
(define (kR:sys:list-folder-contents folder)
   (objc:nsarray->list (objc:call *kR:sys:helper* "listFolderContents:" folder))
)

;test if the filename ends on ".scm"
(define (kR:sys:file-is-script? file)   
      ;(string=? ".scm" (substring file (- (string-length file) 4) (string-length file)))
       #f 
   )
